ValueFolder='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\Results\';
ValueFolderTemp='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\ResultsJournal\';
ValueFolderTemp2='C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\ResultsEditor\';
load('C:\Users\Remy Neveu\Desktop\Etude IRM\Analyse\cc in2p3\Nature\EtudeNature.mat');
VecEditors1Temp(1,:)=[];
VecResultsCoAuthors=[];
load([ValueFolderTemp 'ResultsThirdLevelDistributionOutliers.mat']);
VecDistribution=VecResults;
ValueClock=clock;
disp(['Start of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6))]);
for n2=1:323
    n2
    FirstNameEditor=VecEditors1Temp{n2,1};
    LastNameEditor=VecEditors1Temp{n2,2};
    load([ValueFolderTemp2 'StartEditor' num2str(n2) '.mat']);
    ValueCutoff=1.25;
    if size(ValueMaxDate1,1)>1&&size(ValueMaxDate2,1)>1
        ValueFile=dir([ValueFolderTemp2 'ResultsCharacteristicsEditor' num2str(n2) '.mat']);
        if size(ValueFile,1)==1
            load([ValueFolderTemp2 'ResultsCharacteristicsEditor' num2str(n2) '.mat']);
            ValueDistributionTemp=find(VecDistribution(:,1)==n2);
            if size(ValueDistributionTemp,1)>0&&VecDistribution(ValueDistributionTemp,2)<=ValueCutoff
                VecResults1=zeros(1,2);
                for n1=1:size(VecGroupCoAuthors,1)
                    ValueTemp=VecGroupCoAuthors{n1,1};
                    if n1==1
                        VecResults1(1,1)=VecResults1(1,1)+ValueTemp;
                    end
                    VecResults1(1,2)=VecResults1(1,2)+ValueTemp;
                end
                VecResultsCoAuthors=[VecResultsCoAuthors;VecResults1 size(VecGroupCoAuthors,1) n2];
            else
                VecResults1=NaN(1,3);
                VecResultsCoAuthors=[VecResultsCoAuthors;VecResults1 n2];
            end
        else
            VecResults1=NaN(1,3);
            VecResultsCoAuthors=[VecResultsCoAuthors;VecResults1 n2];
        end
    else
        VecResults1=NaN(1,3);
        VecResultsCoAuthors=[VecResultsCoAuthors;VecResults1 n2];
    end
end
save([ValueFolder 'NCoAuthorsEditors.mat'],'VecResultsCoAuthors');
ValueClock=clock;
disp(['End of the processing at ' num2str(ValueClock(1,4)) ':' num2str(ValueClock(1,5)) ':' num2str(ValueClock(1,6))]);